home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
t_os
/
nem
/
nem.exe
/
SELFILE.PLP
< prev
next >
Wrap
Text File
|
1991-02-24
|
707b
|
20 lines
/* auto pilot program 「NEM 2.00」 1991.2.24 By GOOSE(MAF00070) */
/* %Selfile { */
/* [title] */
/* Selfile:ファイルの複数選択結果を文字列で返す。
** 選択:B:\AA.TXT,B:\BB -> "B:\AA.TXT,B:\BB,No," */
var selfile[100];selfile:={};
%getfile {
case(selfile={},{No},
{display({★★ 選択されているファイルは }|@body(selfile,,{,})|{ です。\n})
});
%temp @filesel;
case(temp={},
{Yes},{selfile:=selfile|{No,};im({No})},
{No},{selfile:=selfile|@Getcdir2|{\}|temp|{,};im({Yes})})
};
loop({select(TITLE|{ファイルを選択して下さい(終了は右クリック)。},{600},
{im({Yes})},{ 確認 },{im({No})} )});
loop({getfile});im(selfile)
/* }; */